{	Problem: http://codeforces.ru/problemset/problem/82/A
 	Verdict: Accepted
}
const nm:array[1..5] of string=('Sheldon', 'Leonard', 'Penny', 'Rajesh', 'Howard');

var 
    i,n,cr:longint;
    c:int64;
    a:array[0..110] of int64;
begin   
read(n);
c:=1; 
a[0]:=0;
for i:=1 to 30 do begin
    a[i]:=a[i-1]+c*5;
    c:=c*2; 
    if a[i]>=n then begin
        cr:=i-1;
        break;
    end;
end;
dec(n,a[cr]);
c:=c div 2;
write(nm[(n-1) div c+1]);
end.
